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I. General Test 

a. To punch test tape 

1. Sense switch *1 down 

2. Start at: 

100 for punch # 
1 12 for punch #1 

3. Will punch following pattern: 
Alphanumeric mode 

10 lines all ones 

10 lines all zeros 

10 lines all ones 

10 lines all zeros 

0,0; 0,1; etc. thru 0,376 

377,0; 377, 1, etc. thru 377,376 

Binary mode 

thru 77 

b. To check test tape 

1 . Load test tape in reader, reader on 200 c.p.s. 

2. Put sense switch "i up, reading and checking line by line will begin. 

3. If no error, program halts with PC holding 412. (Routine checks for single line 
of feed after test punching.) 

4. If error: 

AC = Incorrect bit(s) on one. Bits 10 thru 17= holes 8 thru 1 . 

IO = Number from erroneous line. 

PC = 537 

Press continue to check rest of tape. 
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5. If desired to recheck tape, s tart at 261 . 
II. Test Word Mode 

a. To punch test tape, alphanumeric mode. 

1 . Alternately punches rig ht hal f (bits 10 thru 17), then leftjhgjj (bits 2 thru 9) 
of test word. 

2. Punches 19 pairs of above lines followed by 250 ms delay, repeated indefi- 
nitely. Must be stopped manually. 

3. Start at: 

220 for punch ^0 
224 for punch "h 

b. To punch test tape, binary mode. 

1 . Alternately punches left half (bits thru 5), then right half (bits 9 thru 14) 
of test word . 

2. Same as II a. 2. 

3. Start at: 

22 2 for punch ^0 
226 for punch "l 

c. To check test tape 

1 . Load tape into reader, reader on 200 c.p.s. 

2* Test word switches must remain undisturbed since punching of tape. 

3. Start at: 

4 50 if alphanum eric punching 
500 if binary punching 

4. If no error, program stops in halt upon finding tape feed with PC = 537, 
IO= 200. 

5. If error: 

Same as I b. 4. 

6. If desired to recheck tape, repeat II c. 3. 



* 



Setup punch 0, general test 

org 100 

0100 200250 m lack ,ppa 

0101 240131 daca + 1 

0102 240135 dac a + 5 

0103 240146 dac c + 1 

0104 240150 dac c + 3 

0105 240154 dac c + 7 

0106 240156 dac c +11 

0107 200251 lack + 1 /P pb * 
0110 240166 dace + 1 

0111600123 jmpb 

Setup punch 1 

0112 200252 n 

0113 240131 

0114 240135 

0115 240146 

0116 240150 

0117 240154 

0120 240156 

0121 200253 

0122 240166 

0123 200214 b 

0124 240203 

0125 200213 

0126 240200 

0127 240202 

10 lines all holes 



lac k + 2 


, ppa * c 1 


dac a + 1 




dac a + 5 




dac c + 1 




dac c + 3 




dac c + 7 




dac c + 1 1 




lac k + 3 


,ppb * cl 


dac e + 1 




lac j + 1 


,-2 reset a ctrs 


dac h + 4 




lac j 


,-12 


dac h + 1 




dac h + 3 





0130 220177 a lio h ,377 

0131 000000 

0132 460200 isp h + 1 ,-12 

0133 600130 jmp a 

lines no holes 



0134 220201 lioh+2 ,777400 

0135 000000 

0136 460202 isp h + 3 ,-12 

0137 600134 |mp a + 4 

0140 460203 isp h + 4 ,-2 

0141 600125 impb+ 2 



reset c ctrs 
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0142 200201 

0143 240205 

0144 240206 



lac h + 2 
dac h + 6 
dac h + 7 



,777400 



o,n; on+ 1; etc. 

0145 220204 

0146 000000 

0147 220205 

0150 000000 

0151 460205 

0152 600145 

377, n.,377, n + 1, etc, 

0153 220177 

0154 000000 

0155 220206 

0156 000000 

0157 460206 
0160 600153 



lioh + 5 



lio h + 6 



isp h + 6 

jmp c 



,777400 



lio h 


,377 







lioh + 7 


,777400 







isp h + 7 




jmp c + 6 





reset e ctrs 



0161 200210 

0162 240207 

0163 200204 

0164 240211 



lac h + 11 


,-100 


dach + 10 




lac h + 5 


,0 


dac h + 12 





bin 0-77 



0165 220211 

0166 000000 

0167 200211 

0170 400212 

0171 240211 

0172 460207 

0173 600165 

0174 640010 

0175 600261 

0176 600174 



lioh + 12 


,0 init 







lach + 12 




add h + 13 


, 10000 


dac h + 12 




isp h + 10 




jmp e 




szs 10 




jmp aa 




jmp e + 7 





constants 
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0177C00377 

0200 000000 

0201 777400 

0202 000000 

0203 000000 

0204 000000 

0205 000000 

0206 CC0C00 

0207 000000 

0210 777677 

0211 000000 

0212 010000 

0213 777765 
0214777775 



tw mode 



0220 200250 

0221 6Q0227 

0222 200251 

0223 600227 

0224 200252 

0225 600227 

0226 200253 

0227 240240 



org 220 



377 



777400 













- 100 

10000 

- 12 

- 2 



lac k 

imp g + 7 
lac lc + 1 


,0a 
,0b 


[mp g + 7 
lac k + 2 


, la 


jmp g + 7 
lac k + 3 
dac r 


,1b 



Setup line ctr 

0231 200254 

0232 240255 



lac k + 4 
dac k + 5 



,-23 



Stop delay 250 ms 

0233 200256 
C234 240257 

0235 762200 

0236 240260 

0237 220260 

0240 000000 

0241 672777 

0242 000000 

0243 460255 

0244 600237 



lac k + 6 


,-60k 


dac k + 7 




lat 




dac k + 10 




liok + 10 







, punch rt half if a, It half if b 


rirs9 







, punch It half if a, rt half if b 


isp k + 5 


,-23 line count 



impp 



+ 7 



Page 



0245 460257 

0246 600245 

0247 600231 



isp k + 7 
jmp r + 5 
jmp p + 1 



,-60k stop delay 



Constants 



0250 730005 k 

0251 73CCC6 

0252 730105 

0253 730106 

0254 777754 

0255 000000 

0256 717777 

0257 000000 
0260 000000 

locate data, general test read check 



0261 200413 

0262 730001 

0263 320414 

0264 500414 

0265 600262 

reset ab and ad 



aa 



ppa * 

ppb * 

ppa * cl 

ppb * cl 

-23 



- 60000 







lac ah 
rpa * 

dio ah + 1 
sad ah + 1 
jmp aa + 1 



,100 



0266 200214 

0267 240422 

0270 200417 

0271 240416 

0272 240421 



ac 



lac j + 1 
dac ah + 7 
lac ah + 4 
dac ah + 3 
dac ah + 6 



,-2 
,-12 



check 10 lines all holes 



0273 200415 

0274 060414 

0275 640100 

0276 170533 

0277 460416 
0300 600302 

check next 10 



ab 



lac ah + 2 
xor ah + 1 
sza 
jda bd 
isp ah + 3 
jmp ab + 7 



,377 



, error 

,-12 



0301 600305 

0302 730001 

0303 320414 

0304 600273 



jmp ad 
rpa * 

dio ah + 1 
jmp^ab 



check 10 lines no holes 
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0305 730001 

0306 320414 

0307 200420 

0310 040414 

0311 640100 

0312 170533 

0313 460421 

0314 600305 

0315 460422 



ad 



rpa * 




dio ah + 1 




lac ah + 5 


,0 


ior ah + 1 




sza 




jda bd 


, error 


isp ah + 6 


,-12 


jmp ad 




isp ah + 7 


,-2 



check next 10 



0316 600320 

0317 600323 

0320 730001 

0321 320414 

0322 600270 

0323 200420 

0324 240423 

0325 240421 

0326 200424 

0327 240416 

0330 200214 

0331 240422 



an 



jmp ad + 13 


,377 


jmp an 




rpa * 




dio ah + 1 




jmp ac + 2 




lac ah + 5 


, reset for 0, n 


dac aj 




dac ah + 6 




lac aj + 1 


,-377 


dac ah + 3 


,pr ctr 


lac j + 1 


,-2 


dac ah + 7 





check 0,n 



0332 600333 

0333 730001 

0334 320414 

0335 200423 

0336 060414 

0337 640100 

0340 170533 

0341 730001 

0342 320414 

0343 200421 

0344 060414 

0345 640100 

0346 170533 

0347 460416 



ae 



imp ae 

rpa * 

dio ah + 1 

lac aj 

xor ah + 1 

sza 

jda bd 

rpa * 

dio ah + 1 

lac ah + 6 

xor ah + 1 

sza 

jda bd 

isp ah + 3 



,0 



,0 init 



, error 
,-377 



Pag 



e o 



0350 600352 

0351 600354 

0352 440421 

0353 600333 

0354 460422 

0355 600357 

0356 600366 

reset for 377, n 

0357 200415 

0360 240423 

0361 200420 

0362 240421 

0363 200424 

0364 240416 

0365 600333 

reset for binary 

0366 200425 

0367 240426 

0370 200427 

0371 240430 

0372 730001 

0373 320414 

0374 200430 

0375 060414 

0376 640100 

0377 170533 

0400 460426 

0401 600403 

0402 600405 

0403 440430 

0404 600372 

check feed 



0405 200413 

0406 730001 

0407 320414 

0410 500414 

0411 760400 

0412 170533 



af 



ag 



jmp ae + 17 
jmp af 
idx ah + 6 
jmp ae 
isp ah + 7 
jmp af + 3 
jmp af + 12 



lac ah + 2 
dac aj 
lac ah + 5 
dac ah + 6 
lac aj + 1 
dac ah + 3 
jmp ae 



, compare word 

;-2 



,377 

,-377 

,pr ctr 

, check 377, n 



lac aj + 2 


,-100 


dac aj + 3 




lac aj + 4 


, 200 compare word 


dac aj + 5 




rpa * 


, check binary 


dio ah + 1 




lac aj + 5 


,200 init 


xor ah + 1 




sza 




jda bd 


, error 


isp aj + 3 


,-100 


jmp ag + 1 1 




jmp ag + 13 




idx aj + 5 




jmp ag 





lac ah 


,100 


rpa * 




dio ah + 1 




sad ah + 1 




hit 


,test complete 


jda bd 


, error 
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constants 



0413 0001CO ah ICO 

0414 000000 

0415 000377 377 

0416 000000 

0417 777765 -12 

0420 C00CCO 

0421 CC0C00 

0422 000000 

0423 OCOCOO aj 

0424 777400 - 377 

0425 777677 - 100 

0426 OOCOCO 

0427 000200 200 
0430 OCOCOO 



locate data 



org 450 



0450 200413 ba lac ah ,100 

0451 730001 rpa * 

0452 320414 dio ah + 1 

0453 500414 sad ah + 1 

0454 600451 imp ba + ] 

check data, rt alpha 

0455 762200 bb lat 

0456 020415 and ah +2 ,377 

0457 060414 xor ah + 1 
0460 640 100 sza 



0461 170533 jda bd 

0462 730001 rpa * 



, error 
0463 320414 dio ah + 1 



check data It 

0464 762200 be lat 

0465 675777 sar s9 

0466 020415 and ah + 2 ,377 

0467 060414 xor ah + 1 
0470 640100 sza 



0471 170533 

0472 730001 

0473 320414 

0474 600455 



locate data 



org 500 



jda 


bd 




rpa 


* 




dio 


ah + 


1 


jmp 


bb 
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, error 



0500 200413 

0501 730001 

0502 320414 

0503 500414 

0504 600501 

check data , It bin 

0505 762200 

0506 020531 

0507 671077 

0510 671077 

0511 400427 

0512 060414 

0513 640100 

0514 170533 

0515 730001 

0516 320414 



be 



bf 



lac ah 
rpa * 

dio ah + 1 
sad ah + 1 
Jmp be + 1 



,100 



lat 






and bk 




,770000 


rar s6 






rar s6 






add aj + 


4 


,200 


xor ah + 


1 




sza 






jda bd 




, error 


rpa * 






dio ah + 


1 





check data, rt bin 

0517 762200 

0520 020532 

0521 671007 

0522 400427 

0523 060414 

0524 640100 

0525 170533 

0526 730001 

0527 320414 

0530 600505 

0531 770000 

0532 000770 

0533 000000 



bg 



bk 
bd 



lat 

and bk + 1 

rar s3 

add aj + 4 

xor ah + 1 

sza 

jda bd 

rpa * 

dio ah + 1 

jmp bf 

770000 

770 





,770 
>200 

, error 
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error roui 


•ine 






0534 


^260537 




dap bd + 4 


0535 200533 




lac bd 


0536 760400 




hit 


0537 600000 




imp 






org 




0000 000000 


bi 











jmp end 


m 




000100 




k 




000250 




a 




000130 




c 




000145 




e 




000165 




b 




000123 




n 

1 




000112 
000213 




h 




000177 




d 




000142 




f 




000161 




aa 




000261 




g 




000220 




r 




000240 




P 




000230 




ah 




000413 




ac 




000266 




ab 




000273 




bd 




000533 




ad 




000305 




an 




000323 




aj 




000423 




ae 




000333 




af 




000354 




ag 




000372 




ba 




000450 




bb 




000455 




be 




000464 




be 




000500 




bf 




000505 




bk 




000531 




bg 




000517 




bi 




000000 





